home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / misc / edu / VerbesRegPch13.lha / Install_Patch < prev    next >
Encoding:
Text File  |  1995-03-28  |  2.4 KB  |  126 lines
  1. ; Installer script for Ensemble Verbes patch
  2. ; $VER: Install_Patch 1.0 (28.3.95)
  3.  
  4. (procedure DOLOCALE
  5. (
  6.     (set n 0)
  7.     (while
  8.         (set language
  9.             (select n ;"dansk"
  10.                   ;"deutsch"
  11.                   "english"
  12.                   "español"
  13.                   "français"
  14.                   ;"italiano"
  15.                   ;"nederlands"
  16.                   "norsk"
  17.                   ;"português"
  18.                   ;"svenska"
  19.                   ""
  20.             )
  21.         )
  22.         (
  23.             (set catpath
  24.                 (tackon "Catalogs" language)
  25.             )
  26.             (set srcpath catpath)
  27.             (if (in lang n)
  28.                 (
  29.                     (if (<> 0 n) ; skip "english"
  30.                         (
  31.                             (makedir
  32.                                 (tackon newdest "Catalogs")
  33.                                 (safe)
  34.                             )
  35.                             (makedir
  36.                                 (tackon newdest catpath)
  37.                                 (safe)
  38.                             )
  39.                             (if (= 2 n) ; handle 2 cases for français
  40.                                 (
  41.                                     (set langopt
  42.                                         (askbool
  43.                                             (prompt "Choose the desired version of the français catalog file")
  44.                                             (choices "French with English" "French only")
  45.                                             (help "You may choose either:\n"
  46.                                                   "  French with English menus and error messages, or\n"
  47.                                                   "  Entirely French"
  48.                                             )
  49.                                         )
  50.                                     )
  51.                                     (if (= 1 langopt) ; French with English
  52.                                         (set srcpath
  53.                                             (tackon "Catalogs" "français2")
  54.                                         )
  55.                                     )
  56.                                 )
  57.                             )
  58.                             (copyfiles
  59.                                 (source
  60.                                     (tackon @execute-dir srcpath)
  61.                                 )
  62.                                 (dest
  63.                                     (tackon newdest catpath)
  64.                                 )
  65.                                 (all)
  66.                             )
  67.                         )
  68.                     )
  69.                 )
  70.             )
  71.             (set n (+ n 1))
  72.         )
  73.     )
  74. ))
  75.  
  76. (set osver
  77.     (/
  78.         (getversion "exec.library"
  79.             (resident)
  80.         )
  81.         65536
  82.     )
  83. )
  84. (set ks3
  85.     (> osver 38)
  86. )
  87.  
  88. (set newdest
  89.     (askdir
  90.         (prompt "Select the directory where \"Ensemble Verbes\" was installed")
  91.         (default @default-dest)
  92.         (help "You must tell the installer where \"Ensemble Verbes\" is located.")
  93.         (newpath)
  94.     )
  95. )
  96.  
  97. (if
  98.     (exists (tackon newdest "Verbes"))
  99.     (
  100.         (working "Patching Ensemble Verbes")
  101.         (copyfiles (source (tackon newdest "Verbes")) (dest "t:"))
  102.         (run (cat "sc:c/spatch -o" (tackon newdest "Verbes") " -pVerbes.pch t:Verbes"))
  103.         (delete "t:Verbes")
  104.         (if ks3
  105.             (copyfiles
  106.                 (source "Verbes39.guide")
  107.                 (dest newdest)
  108.                 (newname "Verbes.guide")
  109.             )
  110.             (copyfiles
  111.                 (source "Verbes.guide")
  112.                 (dest newdest)
  113.             )
  114.         )
  115.         (set lang
  116.             (askoptions
  117.                 (prompt "Which languages should be installed?")
  118.                 (choices "English" "Español" "Français" "Norsk")
  119.                 (default 15)
  120.                 (help "\"Ensemble Verbes\" may be run in any of the languages listed.")
  121.             )
  122.         )
  123.         (DOLOCALE)
  124.     )
  125. )
  126.